(library (math)
  (export sum
          product)
  (import
   (except (rnrs base) let-values map error)
   (only (guile)
         lambda* λ))

  (define sum
    (λ (lst)
      (apply + lst)))

  (define product
    (λ (lst)
      (apply * lst))))
